home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / vclang11.arc / FACT.CLN < prev    next >
Encoding:
Text File  |  1991-06-20  |  223 b   |  13 lines
  1. program TESTFUNCTIONS;
  2.   var N;
  3.  
  4.   function FACTORIAL (M);
  5.     begin
  6.       if M = 1 then FACTORIAL := 1;
  7.       if M > 1 then FACTORIAL := M * FACTORIAL(M-1)
  8.     end;
  9.  
  10. begin
  11.   read(N);
  12.   write(FACTORIAL(N))
  13. end.